﻿Public Class frmMensajes


    Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) Handles fmensaje_btn_enviar.Click
        If titulo.Text.Length = 0 Then
            ErrorProvider1.SetError(titulo, "Debe ingresar un título para el mensaje")
            Return
        End If
        ErrorProvider1.SetError(titulo, Nothing)

        If mensaje.Text.Length = 0 Then
            ErrorProvider1.SetError(mensaje, "Debe ingresar un mensaje")
            Return
        End If
        ErrorProvider1.SetError(mensaje, Nothing)

        'My.Forms.MDI.AlertControl1.Show(Me, titulo.Text, mensaje.Text)
        Try
            TmensajesTableAdapter1.InsertQueryMensajes(TmensajesTableAdapter1.ScalarQueryCountMensajes + 1, My.Forms.MDI.Iduser.Caption, System.Environment.MachineName, Date.Today, TimeOfDay.TimeOfDay.ToString, titulo.Text, String.Format("{0} Att. {1}", mensaje.Text, My.Forms.MDI.nombreuser.Caption), False, ColorTitulo.Color.ToArgb, ColorMensaje.Color.ToArgb)
            AlertControl1.AppearanceCaption.ForeColor = Color.Green
            AlertControl1.Show(Me, "Mensaje Enviado", "Su mensaje fue enviado a todos los Usuarios en línea")
        Catch ex As Exception
            AlertControl1.AppearanceCaption.ForeColor = Color.Red
            AlertControl1.Show(Me, "Error", "No se pudo enviar el mensaje")
            ''TlogTableAdapter1.InsertQueryLogs(TlogTableAdapter1.ScalarQueryCountLogs + 1, My.Forms.MDI.Iduser.Caption, My.Resources.StringGlobal.prgVinicio, "Pantalla para enviar mensajes a los Usuarios donde uso: InsertQueryMensajes", ex.Message, My.Resources.StringGlobal.mdlMensajes, Date.Today, TimeOfDay.TimeOfDay.ToString, My.Computer.Name, Name.ToString, sender.GetType.FullName.ToString)
            LogSGS.RegistrarLogYEnviarCorreo(My.Resources.StringGlobal.prgVinicio, "Pantalla para enviar mensajes a los Usuarios donde uso: InsertQueryMensajes", ex, My.Resources.StringGlobal.mdlMensajes, Name.ToString, sender.GetType.FullName.ToString)
        End Try
        titulo.Text = ""
        mensaje.Text = ""
        titulo.Focus()

    End Sub

 

    Private Sub SimpleButton2_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton2.Click
        Me.Close()
    End Sub

    Private Sub frmMensajes_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        titulo.Focus()
    End Sub
End Class